home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 050 / colordem.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1986-04-05  |  512 b   |  24 lines
  1. PROGRAM COLORDEMO ;
  2.  
  3. PROCEDURE REVERSEVIDEO ;
  4.    BEGIN
  5.       TEXTCOLOR (0) ;
  6.       TEXTBACKGROUND (15) ;
  7.    END ;
  8.  
  9. PROCEDURE UNDERLINEVIDEO ;
  10.    BEGIN
  11.       TEXTCOLOR (1) ;
  12.    END ;
  13.  
  14. BEGIN
  15.      UNDERLINEVIDEO ;
  16.      WRITE ('This line is underlined') ;
  17.      NORMVIDEO ;              {Switch to normal }
  18.      WRITELN ;                {  before next line }
  19.      REVERSEVIDEO ;
  20.      WRITE ('This line is in reverse video') ;
  21.      NORMVIDEO ;
  22.      WRITELN ;
  23. END .
  24.